======  DC1 EMULATOR FOR THE TI85  ======

TEXT KEY:
->  store symbol
_   spacebar symbol (strings)
<=  "equal or less than" symbol
=>  "equal or geater than" symbol
<>  "not equal to" symbol
==  equal/compare (exact type)
%   delta symbol

CONDENSED OPERATING INSTRUCTIONS:

  DigiComp1 Emulator
                 JAM  }--Jam
  TFRTFSTFRTFSTFRTFS     indicator
A1@+@+@@+++++++++@@@# }  
B0++++++++++++++++++| }--TFSR
C0++++++++++++++++++| }  field 
 |#                 | 
 ||    Edit Mode    |----Menu
 ||                 |
 |COLUMN          ROW
 |CURSOR       CURSOR
 |
 Display column

@ = TUBE
+ = EMPTY

***EDIT MODE ACTIVE KEYS***

[ARROW KEYS]: Moves the row and column cursors.
[ENTER]: Toggles between @/+ in the TFRS field; 
     toggles between 0/1 on the display column.
[CLEAR]: Clears the display column and TFSR field.
[2nd]:   Switches to RUN mode.
[ON]:    Aborts the program.

NOTE: to use an OR gate function, 
leave either the R or S column empty.

***RUN MODE ACTIVE KEYS***

[ENTER]: Cycles the clock once.
[2nd]:   Switches to EDIT mode. 
[ON]:    Aborts the program.

Program is approx. 2200 bytes.

========================================
||                                    ||
||            SOURCE CODE             ||
||                                    ||
========================================

:ClLCD
:Outpt(1,3,"DigiComp1 Emulator")
:Outpt(3,3,"TFRTFSTFRTFSTFRTFS")
:Outpt(8,7,"_Loading")
:Outpt(4,1,"A")
:Outpt(5,1,"B")
:Outpt(6,1,"C")
:Outpt(7,2,"#")
:Outpt(4,21,"#")
:1->M:1->N:19->dim D
:{3,19}->dim A
:Lbl RDRW
:For(I,1,3)
:If A(I,1)==0
:Then:"0"->L
:Else:"1"->L:End
:Outpt(I+3,2,L)
:For(J,2,19)
:If A(I,J)==0
:Then:"+"->L
:Else:"@"->L:End
:Outpt(I+3,J+1,L)
:End:End
:Lbl EDIT
:Outpt(8,7,"Edit_Mode")
:Lbl KEY1:0->K
:While K==0
:getKy->K:End
:If K==24:Goto LT
:If K==25:Goto UP
:If K==26:Goto RT
:If K==34:Goto DN
:If K==105:Goto CHG
:If K==45:Goto CLR
:If K==21:Goto RUN
:Goto KEY1
:Lbl LT
:Outpt(7,N+1,"_")
:mod(N+17,19)+1->N
:Outpt(7,N+1,"#")
:Goto KEY1
:Lbl UP
:Outpt(M+3,21,"_")
:mod(M+1,3)+1->M
:Outpt(M+3,21,"#")
:Goto KEY1
:Lbl RT
:Outpt(7,N+1,"_")
:mod(N,19)+1->N
:Outpt(7,N+1,"#")
:Goto KEY1
:Lbl DN
:Outpt(M+3,21,"_")
:mod(M,3)+1->M
:Outpt(M+3,21,"#")
:Goto KEY1
:Lbl CHG
:1-A(M,N)->A(M,N)
:If N<>1:Then
:If A(M,N)<>0:Then
:"@"->L:Else:"+"->L
:End:Else
:If A(M,N)<>0:Then
:"1"->L:Else:"0"->L
:End:End
:Outpt(M+3,N+1,L)
:Goto KEY1
:Lbl CLR:Outpt(8,7,"Clearing_")
:Fill(0,A):Goto RDRW
:
:Lbl RUN
:Outpt(8,7,"_Run_Mode")
:For(J,3,18,3)
:Outpt(2,J,"___")
:End:For(J,1,19)
:det ([[1,2,4]]*A(1,J,3,J))->D(J)
:If mod(J,3)==0
:7-D(J)->D(J)
:If mod(J,6)==4
:7-D(J)->D(J):End
:Lbl KEY2:0->K
:While K==0
:getKy->K:End
:If K==105:Goto CLK
:If K==21:Goto EDIT
:Goto KEY2
:Lbl CLK
:Outpt(8,21,"%")
:D(1)->E0:0->F0
:For(O,1,2)
:For(J,0,12,6)
:If D(4+J)==7 and D(7+J)==0:Goto COL3
:Lbl COL1
:7-D(3+J)->I
:If (D(2+J) and I)<>0
:Outpt(2,3+J,"JAM")
:If (D(2+J) or I)==0
:Goto COL2
:If (D(2+J) and D(1))<>D(2+J):Goto COL2
:If (D(3+J) or D(1))<>D(3+J):Goto COL2
:If D(4+J)==7
:Goto SET
:Lbl RST
:D(4+J) and E0->E1
:E0 xor E1->F1
:If (F1 and F0)==0
:Then:F1 or F0->F0:E1->E0
:Else:Outpt(2,J+3,"JAM"):End
:If D(7+J)==0
:Goto COL3
:Lbl COL2
:7-D(6+J)->I
:If (D(5+J) and I)<>0
:Outpt(2,6+J,"JAM")
:If (D(5+J) or I)==0
:Goto COL3
:If (D(5+J) and D(1))<>D(5+J):Goto COL3
:If (D(6+J) or D(1))<>D(6+J):Goto COL3
:If D(7+J)==0
:Goto RST
:Lbl SET
:D(7+J) or E0->E1
:E0 xor E1->F1
:If (F1 and F0)==0
:Then:F1 or F0->F0:E1->E0
:Else:Outpt(2,J+6,"JAM"):End
:Lbl COL3:End:End
:E0->D(1):D(1)->J
:For(I,1,3)
:mod(J,2)->A(I,1)
:If A(I,1)==0:Then
:"0"->L:Else:"1"->L
:End:Outpt(I+3,2,L)
:int (J/2)->J:End
:Outpt(8,21," ")
:Goto KEY2:Stop
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========================================